package Text::Filter::Escape;


use base 'Text::Filter::Base';

sub call{
    my $self = shift;

    my $text = $self->text;
    for ($text) {
        s/&/&amp;/g;
        s/</&lt;/g;
        s/>/&gt;/g;
        s/"/&quot;/g;
    }
    $self->text($text);
    $self->next::method(@_);  

    return $self->text;
}

1;
